home *** CD-ROM | disk | FTP | other *** search
/ SunSoft Catalyst CDWARE 1996 May to August / Catalyst CDWARE 1996 May to August.iso / .products / .bin / httpd / Solaris_1 / devinfo.pl < prev    next >
Perl Script  |  1996-02-29  |  1KB  |  49 lines
  1. #!./perl
  2.  
  3. # ------------------------------------------------------------
  4.  
  5. # devinfo.pl, by Jean-Pierre Girard (jpg@corrado.sun.com)
  6. # This allows the development Kit to choose what
  7. # page to load depending on the existence of .devkit
  8.  
  9. # ------------------------------------------------------------
  10.  
  11. # Bugs and other fixes
  12.  
  13. # ------------------------------------------------------------
  14. $DEVINFONAME=".devkit";
  15. sub ComputeDevinfo
  16. {
  17.     $BASEDIR = $ENV{"DOCUMENT_ROOT"};
  18.     $Devinfo=$BASEDIR . "/" . $DEVINFONAME;
  19. }
  20.  
  21. sub PrintDevinfo
  22. {
  23.     local($compdir, $status) = @_;
  24.  
  25.     &ComputeDevinfo();
  26.     open(DEVINFO, ">$Devinfo");
  27.     #open(DEVINFO, ">$Devinfo") || die("Cannot open $Devinfo\n");
  28.  
  29.     $old = select(DEVINFO);
  30.     print "$compdir^$status\n";
  31.     close(DEVINFO);
  32.     chmod(0666, $DevInfo);
  33.     select($old);
  34. }
  35.  
  36. sub GetDevinfo
  37. {
  38.     local($infoReq) = @_;
  39.     &ComputeDevinfo();
  40.     open(DEVINFO, "<$Devinfo");
  41.     #open(DEVINFO, "<$Devinfo") || die("Cannot read $Devinfo\n");
  42.     @Info = split(/\^/, <DEVINFO>);
  43.     if ($infoReq eq "dir") {
  44.         $Info[0];
  45.     } elsif ($infoReq eq "status") {
  46.         $Info[1];
  47.     }
  48. }
  49.